home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / not a bell (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  354b  |  13 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15
  3. 20 poke54277,8:poke54278,255:poke54276,21
  4. 30 forz=1to4:rem no. of cycles
  5. 40 f1=10:fory=1to5:rem y is no. of increments
  6. 50 f2=40:poke54273,f1
  7. 60 forx=1to5:poke54287,f2:rem x controls speed
  8. 70 f2=f2*1.01
  9. 80 nextx:f1=f1*1.5:nexty:nextz
  10. 90 rem f1, f2 and multipliers greatly affect harmonic content of final sounds
  11. 100 poke54278,15
  12. 110 list10-100
  13.